(Fread_file_name): Pass default to Fcompleting_read.

diff --git a/src/fileio.c b/src/fileio.c
index 6560f28bb70c29fadf9ecc506f00df945bdb776d..9caa355dac5316b8338ee124720c80da5b8960bc 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4854,7 +4854,7 @@ DIR defaults to current buffer's directory default.")
   GCPRO2 (insdef, default_filename);
   val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
                          dir, mustmatch, insdef1,
-                         Qfile_name_history);
+                         Qfile_name_history, default_filename);
 
 #ifdef VMS
   unbind_to (count, Qnil);